Amiga Plus Special 20/AMIGAplus Sonderheft 20 (1999)(ICP)(DE)[!].iso/Magazin/Future-PD/SearchPacket/Install

Text File | 1999-06-19 | 7KB | 242 lines

; /*********************************************************************
; **                                                                  **
; **  Install  -  Installer-Script für SearchPacket     Version 1.00  **
; **                                                                  **
; **  Public Domain - 1999 by StarGATE Software                       **
; **                                                                  **
; **********************************************************************
; **                                                                  **
; **  History:                                                        **
; **                                                                  **
; **    v1.00 (19/06/1999)                                            **
; **                                                                  **
; **      * Erste Version                                             **
; **                                                                  **
; *********************************************************************/

(complete 0)

; /********************************************************************/
; /*                                                                  */
; /*  Sprache anpassen                                                */
; /*                                                                  */
; /********************************************************************/

; /** Deutsch *********************************************************/

(if (= @language "deutsch" )
(
  (set #introduction
    (cat "\n\nWillkommen zum SearchPacket Installer!\n\n"
         "Dieses Script installiert die Programme und alle nötigen\n"
         "Dateien mit wenigen Mausklicks.\n\n"
         "Bitte befolgen Sie die Anweisungen des Installers genau,\n"
         "um eventuelle Fehler zu vermeiden. Danke.\n\n"
         "Marco Miljak"
    )
  )

  (set #select_components
    "Wählen Sie die Komponenten, die installiert werden sollen!"
  )

  (set #select_components_item1 "MakeList")
  (set #select_components_item2 "FindFile")
  (set #select_components_item3 "Anleitungen")
  (set #select_components_item4 "Libraries")

  (set #select_destdir_makelist
    (cat "Bitte wählen Sie das Zielverzeichnis für MakeList!\n"
         "(Es wird eine neue Schublade namens \"MakeList\" erstellt!!)"
    )
  )

  (set #select_destdir_findfile
    (cat "Bitte wählen Sie das Zielverzeichnis für FindFile!\n"
         "(Es wird eine neue Schublade namens \"FindFile\" erstellt!!)"
    )
  )

  (set #bool_copyicon_makelist
    "Soll das Icon von MakeList auch kopiert werden?"
  )

  (set #bool_copyicon_findfile
    "Soll das Icon von FindFile auch kopiert werden?"
  )

  (set #bool_copyicon_yes "Ja")
  (set #bool_copyicon_no "Nein")

  (set #finished "Das SearchPacket wurde erfolgreich auf Ihrem Rechner installiert!")

  ; /******************************************************************/
  ; /*                                                                */
  ; /*  Einleitungsmessage                                            */
  ; /*                                                                */
  ; /******************************************************************/

  (message #introduction (all))

  ; /******************************************************************/
  ; /*                                                                */
  ; /*  Installationskomponenten wählen                               */
  ; /*                                                                */
  ; /******************************************************************/

  (set #components
    (askoptions
      (prompt #select_components)
      (choices #select_components_item1
               #select_components_item2
               #select_components_item3
               #select_components_item4
      )
      (help "")
      (default %1111)
    )
  )

  (complete 25)

  ; /******************************************************************/
  ; /*                                                                */
  ; /*  Programm installieren                                         */
  ; /*                                                                */
  ; /******************************************************************/

  (if (> #components 0)
  (
    (if (IN #components 0)
    (
      (set #destdir_makelist
        (askdir
          (prompt #select_destdir_makelist)
          (default "C:")
          (help "")
        )
      )

      (set @default-dest #destdir_makelist)

      (makedir (tackon #destdir_makelist "MakeList"))

      (copyfiles
        (source "MakeList.info")
        (dest (tackon #destdir_makelist "MakeList.info"))
      )

      (set #copyicon_makelist
        (askbool
          (prompt #bool_copyicon_makelist)
          (choices #bool_copyicon_yes
                   #bool_copyicon_no
          )
          (help "")
        )
      )

      (if (= #copyicon_makelist 1)
      (
        (copyfiles
          (source "MakeList/MakeList")
          (dest (tackon #destdir_makelist "MakeList"))
          (infos)
        )
      )
      (
        (copyfiles
          (source "MakeList/MakeList")
          (dest (tackon #destdir_makelist "MakeList"))
        )
      ))
    ))

    (complete 40)

    (if (IN #components 1)
    (
      (set #destdir_findfile
        (askdir
          (prompt #select_destdir_findfile)
          (default "C:")
          (help "")
        )
      )

      (set @default-dest #destdir_findfile)

      (makedir (tackon #destdir_findfile "FindFile"))

      (copyfiles
        (source "FindFile.info")
        (dest (tackon #destdir_findfile "FindFile.info"))
      )

      (set #copyicon_findfile
        (askbool
          (prompt #bool_copyicon_findfile)
          (choices #bool_copyicon_yes
                   #bool_copyicon_no
          )
          (help "")
        )
      )

      (if (= #copyicon_findfile 1)
      (
        (copyfiles
          (source "FindFile/FindFile")
          (dest (tackon #destdir_findfile "FindFile"))
          (infos)
        )
      )
      (
        (copyfiles
          (source "FindFile/FindFile")
          (dest (tackon #destdir_findfile "FindFile"))
        )
      ))
    ))

    (complete 60)

    (if (IN #components 2)
    (
      (copyfiles
        (source "MakeList/MakeList.guide")
        (dest (tackon #destdir_makelist "MakeList"))
        (infos)
      )

      (copyfiles
        (source "FindFile/FindFile.guide")
        (dest (tackon #destdir_findfile "FindFile"))
        (infos)
      )
    ))

    (complete 80)

    (if (IN #components 3)
    (
      (copylib
        (prompt "ReqTools.library")
        (source "FindFile/libs/ReqTools.library")
        (dest "LIBS:")
        (help "")
        (confirm)
      )
    ))

    (message #finished)
  ))
)
(
  (message "\nSorry, this Installer Script is German-only!" (all))
))

(complete 100)

(exit (quiet))